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Etch-O-Sketch 



A drawing program that bares more than a passing resemblance to that children's favourite, Etch-A- 
Sketch. The user can draw a picture on Long Tank by moving a 'cursor'. This cursor can be moved 
in steps of one vertically, horizontally and diagonally. The screen may also be cleared. 

Example output from Etch-O-Sketch: 



"Edsac 



nmn 




Output From: Etch_0_S ketch 



SELECT L0HG- TAJIK 

DIAL THESE NUMBERS TO HOVE 
7 0S 

4 6 £ TO CLEAR THE SCREEN 
1 Z 3 





1 
1 




Clear 


Reset | 


Start 


Stop | 


Si 


iqle 


E.P| 



n 




LongTank [o ^1 



Order Tank 

Multiplier 

Multiplicand I - Short tanks 

■ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■I O r- r- 




Structure of the program tape: 

T56K 



M3 



space PK 
T56K 



PLOT POINT 



space PZ 
T128K 



CLS 



space PZ 



MASTER 



EZPF 

Two custom subroutines were written for Etch-O-Sketch: 
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Name 


Purpose 


Location 


PLOT_POINT 


Plots a point at the specified location 


56 


CLS 


Clears long tank 


128 



PLOT_POINT: 

PLOT_POINT plots a point which can be seen by switching the CRT display to long tank 0. The X 
parameter is placed into the location L + 50 and the Y parameter into location L + 51, where L is the 
location into which PLOT_POINT is loaded. The coordinate origin is located at the bottom right of 
the screen, with the x axis pointing to the left and the y axis pointing upwards. This was chosen to 
make the implementation of the subroutine easier. 

The subroutine plots a point by taking the long int 1 (stored in location 8M) and shifting it to the left x 
times to give a long int pattern that is stored in location 2M. It then checks to see if the bit in long tank 
that we wish to set has already been set. It does this by ANDing the pattern in 2M with the 
appropriate row of long tank 0. If the result is non-zero then the bit has already been set and control is 
returned to the caller. If the result is zero then the pattern is added to the appropriate row of long tank 
and returns control to the caller. 

Annotated Listing for PLOT_POINT: 

set 9 parameter 

set M parameter - local variables and parameters live here 



plant return link 



first, shift the pattern by x steps to get the right bit pattern to 
draw onto the screen 

118-> 3 T 10#M pattern = INITIAL_PATTERN 





GK 




T 4 7K 




p 5oe 




TZ 





A 16M 


1 


T 44% 


2 


XF 



19-> 



3 


T 10#M 


4 


A 8#M 


5 


T 2#M 


6 


XF 


7 


A 0M 


8 


S 8M 


9 


U 4M 


10 


XF 


11 


G 208 


12 


T 10#M 


13 


A 2#M 


14 


L 0D 


15 


T 2#M 



if i = then don't execute the loop body at all 



loop 



left shift pattern by one 
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16 A 4M 

17 S 8M 

18 U 4M 

19 E 12% 
ll-> 20 XF 



decrement i 



21 


T 10#1 


22 


A 1M 


23 


L IF 


24 


U 15M 


25 


A 12M 


26 


T 279 


27 


H 0D 


28 


C 2#M 


29 


U 6#M 


30 


G 439 


31 


S 8#M 


32 


E 439 



33 


T 


10#M 


34 


A 


15M 


35 


A 


13M 


36 


T 


409 


37 


A 


15M 


38 


A 


14M 


39 


T 


429 



40 


A 0D 


41 


A 2#M 


42 


T 0D 


', 32-> 43 


T 10#M 


44 


EF 


45 


XF 


46 


XF 


47 


XF 


48 


XF 


49 


XF 



loop while i is not -ve 



now, check if there is already a point in the place that we want to 
draw to - if there is one, then we don't need to draw another one 

take the initial SMC instruction opcode and add y*4 to it 



ace = y*4 



SMC point 1 - masked_target = the target memory ANDed with pattern 



if masked_target is -ve then we don't need to do anything, so jump to 
the end of the subroutine 

if masked_target > then jump to the end of the subroutine 



now draw the pattern onto long tank by adding pattern onto the 
appropriate memory location 

take SMC point 2 and add y*4 to its initial value 



take SMC point 3 and add y*4 to its initial value 



target = target + pattern 
SMC point 2 

SMC point 3 

clear the accumulator so that we jump back to the caller 

padding 
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MO P OF x - the caller should set this 

1 P OF y - the caller should set this 

2 P OF pattern (long int) - variable used to manipulate the pattern that 

will 

3 P OF be added to the screen 

4 P OF i - used as a counter 

5 P OF filler 

6 P OF masked_target (long int ) - used to store the result of masking off 

all bits 

7 P OF other than the one that we are about to set to see if that bit is 

already set 

8 P 0D INITIAL_PATTERN (long int constant) = 1. This pattern is left-shifted 

to 

get the pattern that we draw onto long tank 

two words to clear the ace into when we want to clear it 



the initial value of SMC point 1 
the initial value of SMC point 2 
the initial value of SMC point 3 
y*4 kept here 
to help in planting return link 

CLS: 

CLS clears long tank by clearing the accumulator and then then transferring the contents of the 
accumulator to each long word in long tank 0, one at a time. Control is then returned to the caller. 



9 


P OF 


10 


P OF 


11 


P OF 


12 


H 0D 


13 


A 0D 


14 


T 0D 


15 


P OF 


17 


U 2F 



Annotated Listing for CLS 





GK 





A 156 


1 


T 18B 


2 


T D 


3 


T 2D 


4 


T 4D 


5 


T 6D 


6 


T 8D 


7 


T 10D 


8 


T 12D 


9 


T 14D 


10 


T 16D 


11 


T 18D 


12 


T 20D 


13 


T 22D 


14 


T 24D 


15 


T 26D 



plant return link 
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16 T 28D 

11 T 30D 

18 E F 

19 U 2F 



return link 

constant to help planting return link 



Master Routine: 

The master routine does the majority of the work. It clears long tank and then enters the main loop. 

In the main loop, a point is plotted at the coordinates (x, y) where x is stored in the location 0M and y 
is stored in the location 1M. The routine then stops and waits for the user to dial input on the rotary 
dial. Depending on the number dialled, the routine either moves the cursor in the desired direction 
(and therefore increments or decrements x and/or y), or clears the screen by calling CLS. The routine 
then loops back to the start of the main loop. 

Annotated Listing for Master Routine 



set M parameter 



set H parameter - this points to PLOT_POINT 





GK 




T 41 K 




P 119% 




TZ 




T 45K 




P 56F 




TZ 





XF 


1 


A 18 


2 


G 128F 


CLS-> 3 


T 2M 


4 


A 0M 


5 


T 50H 


6 


A 1M 


7 


T 51H 


8 


a se 


9 


G OH 


PLOT_POINT-> 




16, 36-> 




10 


T 2M 


11 


ZF 


12 


U 3M 


13 


XF 


14 


R 0D 


15 


S 4M 


16 


G 10Q 


n 


S 4M 


18 


G 379 


19 


S 4M 



clear long tank using CLS 

main_loop 

clear ace 

plot a point at (x, y) 



call PLOT POINT 



clear ace and wait for input 



store the input 



divide by two to get the value entered 



input = => no user input so re-read the input 



input = 1 => move down and to the left 
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18-> 



20-> 



22-> 



24-> 



26-> 



20 


G 458 


21 


S 4M 


22 


G 508 


23 


S 4M 


24 


G 588 


25 


S 4M 


26 


G 638 


27 


S 4M 


28 


G 678 


29 


S 4M 


30 


G 728 


31 


S 4M 


32 


G 808 


33 


S 4M 


34 


G 858 


35 


S 4M 


36 


G 108 


37 


T 2M 


38 


A 0M 


39 


A 4M 


40 


T 0M 


41 


A 1M 


42 


S 4M 


43 


T 1M 


44 


E 938 


45 


T 2M 


46 


A 1M 


47 


S 4M 


48 


T ltd 


49 


E 938 


50 


T 2M 


51 


A 0M 


52 


S 4M 


53 


T 0M 


54 


A 1M 


55 


S 4M 


56 


T 1M 


57 


E 938 


58 


T 2M 


59 


A 0M 


60 


A 4M 


61 


T 0M 


62 


E 938 


63 


T 2M 


64 


A 648 



input = 2 => move down 

input = 3 => move down and to the right 

input = 4 => move left 

input = 5 => clear screen 

input = 6 => move right 

input = 7 => move up and left 

input = 8 => move up 

input = 9 => move up and to the right 

input = 10 => user pressed 0, which isn't allowed => re-enter input 

move down and to the left 

increment x (remember, the x axis points to the left) 

decrement y 



break out of this block 
move down 
decrement y 



break 

move down and to the right 

decrement x 



decrement y 



break 

move to the left 

increment x (remember, the x axis points to the left) 



break 

clear the screen 

clear long tank using CLS 
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break 
28-> 67 T 2M move to the right 

decrement x 



break 
30-> 72 T 2M move up and to the left 



65 


G 


128F 


66 


E 


93d 


67 


T 


2M 


68 


A 


OM 


69 


S 


4M 


70 


T 


OM 


71 


E 


93d 


72 


T 


2M 


73 


A 


OM 


74 


A 


4M 


75 


T 


OM 


76 


A 


1M 


77 


A 


4M 


78 


T 


1M 


79 


E 


93d 


80 


T 


2M 


81 


A 


1M 


82 


A 


4M 


83 


T 


1M 


84 


E 


938 


85 


T 


2M 


86 


A 


OM 


87 


S 


4M 


88 


T 


OM 


89 


A 


1M 


90 


A 


4M 


91 


T 


1M 


92 


E 


938 



increment x (remember, the x axis points to the left) 



increment y 



break 
32-> 80 T 2M move up 

increment y 



break 
34-> 85 T 2M move up and to the right 

decrement x 



increment y 



break 



check that x and y are still within the bounds of our 'screen ' 
44, 49, 57, 62, 66, 71, 79, 84, 92-> 

if x >= 35 then x = 34 



93 


T 


2M 


94 


A 


OM 


95 


S 


5M 


96 


G 


1008 


97 


T 


2M 


98 


A 


7M 


99 


T 


OM 


100 


T 


2M 


101 


A 


OM 


102 


E 


1058 


103 


T 


2M 


104 


T 


OM 



96-> 100 T 2M if x < then x = 
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02-> 


105 


T 


2M 




106 


A 


1M 




107 


S 


6M 




108 


G 


112% 




109 


T 


2M 




110 


A 


8M 




111 


T 


1M 



if y >= 16 then y = 15 



108-> 


112 


T 2M 




113 


A 1M 




114 


E 1178 




115 


T 2M 




116 


T 1M 



if y < then y = 



114-> 


117 


T 


2M 


loop to main_loop 




118 


E 


30 






0M 


P 


8F 


x = 16 




1 


P 


4F 


y = 8 




2 


P 


OF 


dump accumulator here 




3 


P 


OF 


user input stored here 




4 


P 


0D 


=1 




5 


P 


17D 


=35 




6 


P 


8F 


=16 




7 


P 


17F 


=34 




8 


P 


7D 


=15 



